/* rclu005.p - Scheduled Order Items Lookup UI                              */
/* Copyright 1986-2002 QAD Inc., Carpinteria, CA, USA.                      */
/* All rights reserved worldwide.  This is an unpublished work.             */
/* $Revision: 1.5 $    */
/*V8:ConvertMode=NoConvert                                                  */
/********************************** History *********************************
 *    Revision: 9.1      Created: 09/14/99    By: M Amaladhas    *N02L*
 *    Revision: 9.1     Modified: 12/08/99    By: Jean Miller    *N06J*
 *    Revision: 9.1     Modified: 08/15/00    By: Mark Brown     *N0KP*
 * $Revision: 1.5 $    BY: Jean Miller          DATE: 04/05/02  ECO: *P044*
 ****************************************************************************/

{mfdeclre.i}

&SCOPED-DEFINE BR-TITLE "Scheduled Order Items"

&SCOPED-DEFINE BR-NAME rc005
&SCOPED-DEFINE Q-DRAG-BACK-COL 4

&SCOPED-DEFINE Q-FIRST-TABLE scx_ref
&SCOPED-DEFINE Q-FIRST-FIELD-LIST (scx_part scx_po scx_order scx_line)
&SCOPED-DEFINE Q-NUM-TABLES 1

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-1 b-1.scx_part
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-1 scx_ref.scx_part
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-1 tt-scx_part
&SCOPED-DEFINE BR-K-COL-LABEL-1 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-1 "Item Number"
&SCOPED-DEFINE BR-FIELD-TYPE-1 character
&SCOPED-DEFINE BR-FIELD-FRMT-1 FORMAT "x(18)"
&SCOPED-DEFINE BR-FIELD-WIDTH-1 19

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-2 b-1.scx_po
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-2 scx_ref.scx_po
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-2 tt-scx_po
&SCOPED-DEFINE BR-K-COL-LABEL-2 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-2 "Purchase Order"
&SCOPED-DEFINE BR-FIELD-TYPE-2 character
&SCOPED-DEFINE BR-FIELD-FRMT-2 FORMAT "x(22)"
&SCOPED-DEFINE BR-FIELD-WIDTH-2 23

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-3 b-1.scx_order
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-3 scx_ref.scx_order
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-3 tt-scx_order
&SCOPED-DEFINE BR-K-COL-LABEL-3 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-3 "Order"
&SCOPED-DEFINE BR-FIELD-TYPE-3 character
&SCOPED-DEFINE BR-FIELD-FRMT-3 FORMAT "x(8)"
&SCOPED-DEFINE BR-FIELD-WIDTH-3 9

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-4 b-1.scx_line
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-4 scx_ref.scx_line
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-4 tt-scx_line
&SCOPED-DEFINE BR-K-COL-LABEL-4 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-4 "Line"
&SCOPED-DEFINE BR-FIELD-TYPE-4 integer
&SCOPED-DEFINE BR-FIELD-FRMT-4 FORMAT " >>9"
&SCOPED-DEFINE BR-FIELD-WIDTH-4 5

&SCOPED-DEFINE Q-NUM-FILT-VALS 4
&SCOPED-DEFINE BR-MAX-FIELD-WIDTH 23
&SCOPED-DEFINE BR-BROWSE-WIDTH 56
&SCOPED-DEFINE WHERE-CLAUSE (scx_type = 1 and scx_shipfrom = global_site and scx_shipto = global_addr)
&SCOPED-DEFINE BR-INDEXED-FIELDS 1

{wbbr01.i &string-4 = 'LOOKUP'}
if c-application-mode <> 'WEB' then do:
   {lookup.i}
end.
